selecciona(X,[X|L],L).
selecciona(X,[Y|L1],[Y|L2]):- selecciona(X,L1,L2),!.

sublista(L1,L2):-append(_L3,L4,L2), append(L1,_L5,L4),!.

mete_lista([]).
mete_lista([X|Lista1]):-asserta(elemento(X)), mete_lista(Lista1),!.